|
CHANGE MESH
This command will change the mesh of an object limb.
CHANGE MESH Object Number, Limb Number, Mesh Number
Object Number
Integer
The object number
Limb Number
Integer
The limb number
Mesh Number
Integer
The mesh number
This command does not return a value.
You can use this command to animate an object that requires a sequence of fixed static meshes. The parameters must be integer values.
sync on
sync rate 120
hide mouse
cls 0
ObjectNumber=1
MeshNumber=1
LimbNumber=0
TextureNumber=1
load mesh "mesh.x",MeshNumber
load mesh "newmesh.x",MeshNumber+1
load image "iron.jpg",TextureNumber
make object ObjectNumber, MeshNumber,TextureNumber
if mesh exist(MeshNumber)=1 then delete mesh MeshNumber
make mesh from object MeshNumber, ObjectNumber
add limb ObjectNumber,LimbNumber+1,MeshNumber
link limb ObjectNumber,0,LimbNumber+1
offset limb ObjectNumber,1,1,0,0
color limb ObjectNumber,LimbNumber+1,rgb(0,255,0)
scale limb ObjectNumber,LimbNumber+1,50,50,50
while mouseclick()=0
set cursor 0,0
print "press z key"
if inkey$()="z" then change mesh ObjectNumber, LimbNumber+1, MeshNumber+1
xrotate object ObjectNumber,wrapvalue(object angle x(ObjectNumber)+1)
sync
endwhile
delete object ObjectNumber
if mesh exist(MeshNumber)=1 then delete mesh MeshNumber
if mesh exist(MeshNumber+1)=1 then delete mesh MeshNumber+1
end
BASIC3D Commands Menu
Index
|